Use symbol at point in whow keymap functions

diff --git a/which-key.el b/which-key.el
index 818ef17d2b7f9c91247db26e229d0cea2ec69acf..fe68c9db8344fd938ea9ffce129fc296659e8b5c 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -2298,7 +2298,12 @@ Only if no keys fit fallback to LOC2."
                              (keymapp (symbol-value m))
                              (not (equal (symbol-value m)
                                          (make-sparse-keymap)))))
-                      t nil 'which-key-keymap-history))))
+                      t
+                      (let ((sym (symbol-at-point)))
+                        (and (boundp sym)
+                             (keymapp (symbol-value sym))
+                             (symbol-name sym)))
+                      'which-key-keymap-history))))
     (which-key--show-keymap (symbol-name keymap-sym)
                             (symbol-value keymap-sym)
                             nil all)))